PC World Interactive 7/PC World Interactive 7.iso/share/hobi/hsmart/_SETUP.1/newhs.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-11-23 | 76KB | 2,671 lines

object Form1: TForm1
  Left = 196
  Top = 117
  HelpContext = 1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Heart Smart'
  ClientHeight = 426
  ClientWidth = 632
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object groupbox2: TPanel
    Left = 8
    Top = 0
    Width = 330
    Height = 29
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 127
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Clear Menu'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B55555555555555750000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ClearMenu1Click
    end
    object SpeedButton5: TSpeedButton
      Left = 252
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Order Form'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
        57705557757777775FF7555555555555000755555555555F777F555555555550
        87075555555555F7577F5555555555088805555555555F755F75555555555033
        805555555555F755F75555555555033B05555555555F755F75555555555033B0
        5555555555F755F75555555555033B05555555555F755F75555555555033B055
        55555555F755F75555555555033B05555555555F755F75555555555033B05555
        555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
        5555F777F7555555555501900555555555557777755555555555099055555555
        55557777555555555555500555555555555557755555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 277
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Register'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
        055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
        305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
        30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
        3055577777555557F7F5550005555559995555777555555777550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Register1Click
    end
    object SpeedButton7: TSpeedButton
      Left = 152
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Print Menu'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777
        7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F
        7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F
        7F708888888888888F8F0000000000000000888888888888888F3330BBBBBBBB
        03333338F3FFFF3F8F333330B0000B0B03333338F88883838F333330BBBBBBBB
        03333338F3FF3FFF8F333330B00B000003333338F883888883333330BBBB0FF0
        33333338F3FF8F3833333330B07B0F0333333338F8838F8333333330BBBB0033
        33333338FFFF8833333333300000033333333338888883333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintMenu1Click
    end
    object SpeedButton8: TSpeedButton
      Left = 177
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Print Shopping List'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777
        7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F
        7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F
        7F708888888888888F8F0000000000000000888888888888888F3330DDDDDDDD
        03333338F3FFFF3F8F333330D0000D0D03333338F88883838F333330DDDDDDDD
        03333338F3FF3FFF8F333330D00D000003333338F883888883333330DDDD0FF0
        33333338F3FF8F3833333330D07D0F0333333338F8838F8333333330DDDD0033
        33333338FFFF8833333333300000033333333338888883333333000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintShopingList1Click
    end
    object SpeedButton11: TSpeedButton
      Left = 202
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Add Food Item'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000FFFFFFFFFFFFFF00FFF0F0FFFFFFFF000000FF0000FFFF00FFFFFFFFFFF
        FFF00FF0000000FF00F00000F00FFFFFFFF00FFFFFFFFF99FFF000000000FF99
        F0000FFFFFFF999999F00FFFFFFF999999F00F00000FFF99FFF00F0FFF000F99
        F000000FFFFFFFFFFFF00FFFFFFFFFFFFFF00000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = Add1Click
    end
    object SpeedButton12: TSpeedButton
      Left = 227
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Delete Food Item'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000FFFFFFFFFFFFFF00FFF0F0FFFFFFFF000000FF0000FFFF00FFFFFFFFFFF
        FFF00FF0000000FF00F00000F00FFFFFFFF00FFFFFFFFF0FFFF000000000F00F
        F0000FFFFFFF999999F00FFFFFFF999999F00F00000FFFFFFFF00F0FFF000F0F
        F000000FFFFFFFFFFFF00FFFFFFFFFFFFFF00000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = Delete1Click
    end
    object SpeedButton13: TSpeedButton
      Left = 102
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Load Menu'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300787000333
        333330078700033333333000000003333333300000000000000030FFFFFF0F8F
        FFF030FFFFFF0FF8F8F030CCCCCC080F0FF0333930F9FF08FFF0333930F99FF0
        0FF03339999999FF78F033399999999F8FF0333399999987F000333330F99F8F
        0033333330F9F8FF033333333000000033333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = loadmealClick
    end
    object SpeedButton2: TSpeedButton
      Left = 302
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Exit Program'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
      OnClick = closeClick
    end
    object SpeedButton14: TSpeedButton
      Left = 2
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Copy Meal'
      Glyph.Data = {
        9E050000424D9E05000000000000360400002800000014000000120000000100
        0800000000000000000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070707070707070000070707070707070707070700
        000707070700FF000707070707070707070700FF0007070700FFFF0007070707
        070707070700FFFB00070700FFFFFF00070707070707070700FFFBFF00070700
        FF00FF00070707070707070700FB00FB0007070000FFFF000707070700070707
        0000FBFF00070700FFFFFF00070707070000070700FBFFFB000707000000FF00
        0700000000000007000000FF00070700FFFFFF00070000000000000700FBFFFB
        000707000000FF000707070700000707000000FF00070700FFFFFF0007070707
        0007070700FBFFFB0007070000FFFF0007070707070707070000FBFF00070700
        FF04FF00070707070707070700FF00FB0007070700FFFF000707070707070707
        0700FBFF000707070700FF000707070707070707070700FB0007070707070000
        0707070707070707070707000007070707070707070707070707070707070707
        0707}
      OnClick = copymealClick
    end
    object SpeedButton15: TSpeedButton
      Left = 27
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Paste Meal'
      Glyph.Data = {
        C6050000424DC605000000000000360400002800000014000000140000000100
        0800000000000000000000000000000000000000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070707070707070707070707070700000000000000
        0007070707070707070707070700FBFFFBFFFBFF000707070000000000000000
        0000FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFFFBFFFBFF00070700
        FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFF
        FBFFFBFF00070700FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF
        000000000700FBFFFBFFFBFF00070700FF07FF07FF000000FF00FFFBFFFB0000
        0007070007FF07FF000000000700FBFFFBFF000007070700FF07FF000000FF00
        FF000000000000070707070007FF000000FF07FF07FF00070707070707070700
        FF07FF00FF07FF07FF070007070707070707070007FF07FF07FF07FF07FF0007
        0707070707070700FF07000000000000FF0700070707070707070707000000FC
        FEFCFE00000007070707070707070707070700FEFCFEFC000707070707070707
        0707070707070700000000070707070707070707070707070707070707070707
        07070707070707070707}
      OnClick = pastemealClick
    end
    object SpeedButton16: TSpeedButton
      Left = 52
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Clear Meal'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF005FFFFFFFFF00
        0F5558888F888555F5550FFFFFFFFFFFFF558888888855F855550FFFFFFFFFFF
        FF5588F5888F585555550FFFFFFFFFFFFF5588FF588F5FF555555F0000FF00FF
        FF55588FF88588FF55555FFFFFF0110FFF555588F858888FF5555FF0FF099910
        FF5555FF85888888FF555F0FFF0999910F55588F5F88888885F55FF00FF09990
        3055588F85F88888585F50FFFFFF090B03055588585588858585500F0F0FF0B0
        B03055555F55585858585FFFFFFFFF0B0B3355558555558585555000F0F0FFF0
        BBB35555F55555585F555FFFFFFFFFFF0BBB55585555555585F5555555555555
        50BB555555555555585F555555555555550B5555555555555585000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = Clear1Click
    end
    object SpeedButton17: TSpeedButton
      Left = 77
      Top = 2
      Width = 25
      Height = 25
      Hint = 'Save Menu'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      OnClick = SavemenuClick
    end
  end
  object PageControl1: TPageControl
    Left = 4
    Top = 32
    Width = 626
    Height = 390
    ActivePage = TabSheet1
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      HelpContext = 1
      Caption = 'Menu Planner'
      object Label1: TLabel
        Left = 13
        Top = 2
        Width = 65
        Height = 16
        Caption = 'Food Items'
      end
      object Image2: TImage
        Left = 239
        Top = 256
        Width = 50
        Height = 50
        DragMode = dmAutomatic
        OnDragDrop = Image1DragDrop
        OnDragOver = Image1DragOver
        OnEndDrag = Image1EndDrag
      end
      object Image1: TImage
        Left = 239
        Top = 256
        Width = 50
        Height = 50
        Hint = 'Trash Can'
        DragMode = dmAutomatic
        ParentShowHint = False
        ShowHint = True
        OnDragDrop = Image1DragDrop
        OnDragOver = Image1DragOver
        OnEndDrag = Image1EndDrag
      end
      object ListBox1: TListBox
        Left = 4
        Top = 16
        Width = 217
        Height = 210
        DragMode = dmAutomatic
        ExtendedSelect = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        Sorted = True
        TabOrder = 0
        OnClick = ListBox1Click
        OnDblClick = Modify1Click
        OnEndDrag = ListBox1EndDrag
        OnKeyPress = ListBox1KeyPress
      end
      object TabbedNotebook1: TTabbedNotebook
        Left = 232
        Top = 4
        Width = 382
        Height = 221
        TabsPerRow = 4
        TabFont.Color = clBtnText
        TabFont.Height = -11
        TabFont.Name = 'Arial'
        TabFont.Style = []
        TabOrder = 1
        TabStop = False
        OnChange = TabbedNotebook1Change
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Sunday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Monday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Tuesday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Wednesday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Thursday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Friday'
        end
        object TTabPage
          Left = 4
          Top = 27
          Caption = 'Saturday'
        end
      end
      object TabSet2: TTabSet
        Left = 299
        Top = 340
        Width = 185
        Height = 21
        DitherBackground = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Tabs.Strings = (
          'Meal'
          'Day'
          'Week'
          'Avg. Day')
        TabIndex = 0
        OnChange = TabSet2Change
      end
      object GroupBox1: TGroupBox
        Left = 298
        Top = 250
        Width = 311
        Height = 92
        Caption = 'Menu Values'
        TabOrder = 3
        object PaintBox2: TPaintBox
          Left = 236
          Top = 15
          Width = 69
          Height = 69
          OnPaint = PaintBox2Paint
        end
        object Label10: TLabel
          Left = 184
          Top = 12
          Width = 29
          Height = 14
          Caption = 'Carbo'
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 184
          Top = 36
          Width = 33
          Height = 14
          Caption = 'Protein'
          Font.Color = clAqua
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 184
          Top = 60
          Width = 15
          Height = 14
          Caption = 'Fat'
          Font.Color = clYellow
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object mvcarbopercent: TLabel
          Left = 214
          Top = 24
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object mvproteinpercent: TLabel
          Left = 214
          Top = 48
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object mvfatpercent: TLabel
          Left = 214
          Top = 72
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Panel1: TPanel
          Left = 4
          Top = 16
          Width = 177
          Height = 65
          TabOrder = 0
          object mvcal: TLabel
            Left = 68
            Top = 6
            Width = 21
            Height = 14
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label7: TLabel
            Left = 8
            Top = 7
            Width = 39
            Height = 14
            Caption = 'Calories'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 8
            Top = 22
            Width = 29
            Height = 14
            Caption = 'Carbo'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label9: TLabel
            Left = 8
            Top = 37
            Width = 33
            Height = 14
            Caption = 'Protein'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label26: TLabel
            Left = 94
            Top = 5
            Width = 15
            Height = 14
            Caption = 'Fat'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label15: TLabel
            Left = 94
            Top = 20
            Width = 35
            Height = 14
            Caption = 'Sodium'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label22: TLabel
            Left = 94
            Top = 35
            Width = 21
            Height = 14
            Caption = 'Chol'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object mvchol: TLabel
            Left = 153
            Top = 35
            Width = 21
            Height = 14
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object mvna: TLabel
            Left = 153
            Top = 20
            Width = 21
            Height = 14
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object mvfat: TLabel
            Left = 153
            Top = 4
            Width = 21
            Height = 14
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object mvpro: TLabel
            Left = 68
            Top = 37
            Width = 21
            Height = 14
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object mvcarbo: TLabel
            Left = 68
            Top = 21
            Width = 21
            Height = 12
            Alignment = taRightJustify
            Caption = 'XXX'
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 232
        Width = 233
        Height = 121
        Caption = 'Food Item'
        TabOrder = 4
        object Label6: TLabel
          Left = 108
          Top = 20
          Width = 52
          Height = 14
          Caption = '# Servings'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object PaintBox1: TPaintBox
          Left = 160
          Top = 48
          Width = 69
          Height = 69
          OnPaint = PaintBox1Paint
        end
        object Label19: TLabel
          Left = 112
          Top = 36
          Width = 29
          Height = 14
          Caption = 'Carbo'
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label20: TLabel
          Left = 112
          Top = 60
          Width = 33
          Height = 14
          Caption = 'Protein'
          Font.Color = clAqua
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label21: TLabel
          Left = 112
          Top = 84
          Width = 15
          Height = 14
          Caption = 'Fat'
          Font.Color = clYellow
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object ficarbopercent: TLabel
          Left = 131
          Top = 48
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object fiproteinpercent: TLabel
          Left = 131
          Top = 72
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object fifatpercent: TLabel
          Left = 131
          Top = 96
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Servingcount: TEdit
          Left = 162
          Top = 17
          Width = 36
          Height = 24
          AutoSize = False
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 3
          ParentFont = False
          TabOrder = 0
          Text = '1'
          OnChange = ServingcountChange
        end
        object panel3: TPanel
          Left = 4
          Top = 18
          Width = 101
          Height = 95
          TabOrder = 1
          object Label2: TLabel
            Left = 6
            Top = 6
            Width = 39
            Height = 14
            Caption = 'Calories'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 6
            Top = 20
            Width = 29
            Height = 14
            Caption = 'Carbo'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 6
            Top = 34
            Width = 33
            Height = 14
            Caption = 'Protein'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 6
            Top = 48
            Width = 15
            Height = 14
            Caption = 'Fat'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object fical: TLabel
            Left = 77
            Top = 6
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object ficarbo: TLabel
            Left = 77
            Top = 20
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object fipro: TLabel
            Left = 77
            Top = 34
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label13: TLabel
            Left = 6
            Top = 62
            Width = 35
            Height = 14
            Caption = 'Sodium'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 6
            Top = 76
            Width = 21
            Height = 14
            Caption = 'Chol'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object fifat: TLabel
            Left = 77
            Top = 49
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object fina: TLabel
            Left = 77
            Top = 63
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object fichol: TLabel
            Left = 77
            Top = 77
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label46: TLabel
            Left = 85
            Top = 20
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label55: TLabel
            Left = 85
            Top = 34
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label57: TLabel
            Left = 85
            Top = 48
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label59: TLabel
            Left = 85
            Top = 62
            Width = 14
            Height = 14
            Caption = 'mg'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label61: TLabel
            Left = 85
            Top = 76
            Width = 14
            Height = 14
            Caption = 'mg'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
        object UpDown1: TUpDown
          Left = 198
          Top = 17
          Width = 12
          Height = 24
          Associate = Servingcount
          Min = 1
          Position = 1
          TabOrder = 2
          Wrap = False
        end
      end
      object TabSet1: TTabSet
        Left = 232
        Top = 223
        Width = 201
        Height = 25
        DitherBackground = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Tabs.Strings = (
          'Breakfast'
          'Lunch'
          'Dinner'
          'Snack')
        TabIndex = 0
        OnChange = TabSet1Change
      end
      object TabListBox1: Ttablistbox
        Left = 240
        Top = 34
        Width = 365
        Height = 183
        DragMode = dmAutomatic
        ExtendedSelect = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 6
        OnClick = TabListBox1Click
        OnDragDrop = TabListBox1DragDrop
        OnDragOver = TabListBox1DragOver
        OnEndDrag = TabListBox1EndDrag
        TabStops = 0
      end
    end
    object TabSheet2: TTabSheet
      HelpContext = 10
      Caption = 'Recipes'
      object Image4: TImage
        Left = 231
        Top = 128
        Width = 50
        Height = 50
        DragCursor = crNoDrop
        Visible = False
        OnDragDrop = Image3DragDrop
        OnDragOver = Image3DragOver
        OnEndDrag = Image3EndDrag
      end
      object Label16: TLabel
        Left = 13
        Top = 2
        Width = 65
        Height = 16
        Caption = 'Food Items'
      end
      object Label25: TLabel
        Left = 240
        Top = 216
        Width = 181
        Height = 16
        Caption = 'Recipe Preparation Instructions'
      end
      object Label27: TLabel
        Left = 288
        Top = 0
        Width = 107
        Height = 16
        Caption = 'Recipe Ingredients'
      end
      object Label28: TLabel
        Left = 228
        Top = 56
        Width = 53
        Height = 33
        AutoSize = False
        Caption = 'Food Item Servings'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Image3: TImage
        Left = 231
        Top = 128
        Width = 50
        Height = 50
        Hint = 'Trash Can'
        DragCursor = crNoDrop
        ParentShowHint = False
        ShowHint = True
        OnDragDrop = Image3DragDrop
        OnDragOver = Image3DragOver
        OnEndDrag = Image3EndDrag
      end
      object ListBox2: TListBox
        Left = 4
        Top = 16
        Width = 217
        Height = 210
        DragMode = dmAutomatic
        ExtendedSelect = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        Sorted = True
        TabOrder = 0
        OnEndDrag = ListBox2EndDrag
        OnKeyPress = ListBox2KeyPress
      end
      object tablistbox2: Ttablistbox
        Left = 288
        Top = 18
        Width = 321
        Height = 191
        DragMode = dmAutomatic
        ExtendedSelect = False
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 1
        OnDragDrop = tablistbox2DragDrop
        OnDragOver = tablistbox2DragOver
        OnEndDrag = tablistbox2EndDrag
        TabStops = 0
      end
      object Memo1: TMemo
        Left = 240
        Top = 240
        Width = 369
        Height = 113
        MaxLength = 2000
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 232
        Width = 233
        Height = 121
        Caption = 'Recipe'
        TabOrder = 3
        object Label17: TLabel
          Left = 108
          Top = 20
          Width = 52
          Height = 14
          Caption = '# Servings'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object PaintBox6: TPaintBox
          Left = 160
          Top = 48
          Width = 69
          Height = 69
          OnPaint = PaintBox6Paint
        end
        object Label18: TLabel
          Left = 112
          Top = 36
          Width = 29
          Height = 14
          Caption = 'Carbo'
          Font.Color = clLime
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 112
          Top = 60
          Width = 33
          Height = 14
          Caption = 'Protein'
          Font.Color = clAqua
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 112
          Top = 84
          Width = 15
          Height = 14
          Caption = 'Fat'
          Font.Color = clYellow
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object rcarbopercent: TLabel
          Left = 131
          Top = 48
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object rproteinpercent: TLabel
          Left = 131
          Top = 72
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object rfatpercent: TLabel
          Left = 131
          Top = 96
          Width = 22
          Height = 14
          Alignment = taRightJustify
          Caption = '00%'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object recipeservings: TEdit
          Left = 162
          Top = 17
          Width = 36
          Height = 24
          AutoSize = False
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          MaxLength = 3
          ParentFont = False
          TabOrder = 0
          Text = '1'
          OnChange = ServingcountChange
        end
        object Panel2: TPanel
          Left = 4
          Top = 18
          Width = 103
          Height = 95
          TabOrder = 1
          object Label29: TLabel
            Left = 6
            Top = 6
            Width = 39
            Height = 14
            Caption = 'Calories'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label30: TLabel
            Left = 6
            Top = 20
            Width = 29
            Height = 14
            Caption = 'Carbo'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label31: TLabel
            Left = 6
            Top = 34
            Width = 33
            Height = 14
            Caption = 'Protein'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label32: TLabel
            Left = 6
            Top = 48
            Width = 15
            Height = 14
            Caption = 'Fat'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object rcal: TLabel
            Left = 79
            Top = 6
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object rcarbo: TLabel
            Left = 79
            Top = 20
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object rprotein: TLabel
            Left = 79
            Top = 34
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label36: TLabel
            Left = 6
            Top = 62
            Width = 35
            Height = 14
            Caption = 'Sodium'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label37: TLabel
            Left = 6
            Top = 76
            Width = 21
            Height = 14
            Caption = 'Chol'
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object rfat: TLabel
            Left = 79
            Top = 49
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object rna: TLabel
            Left = 79
            Top = 63
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object rchol: TLabel
            Left = 79
            Top = 77
            Width = 6
            Height = 14
            Alignment = taRightJustify
            Caption = '0'
            Color = clBtnFace
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label63: TLabel
            Left = 87
            Top = 20
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label64: TLabel
            Left = 87
            Top = 34
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label65: TLabel
            Left = 87
            Top = 48
            Width = 6
            Height = 14
            Caption = 'g'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label66: TLabel
            Left = 87
            Top = 62
            Width = 14
            Height = 14
            Caption = 'mg'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label67: TLabel
            Left = 87
            Top = 76
            Width = 14
            Height = 14
            Caption = 'mg'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
        end
        object UpDown2: TUpDown
          Left = 198
          Top = 17
          Width = 12
          Height = 24
          Associate = recipeservings
          Min = 1
          Position = 1
          TabOrder = 2
          Wrap = False
        end
      end
      object rfiservings: TEdit
        Left = 226
        Top = 89
        Width = 36
        Height = 24
        AutoSize = False
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 3
        ParentFont = False
        TabOrder = 4
        Text = '1'
        OnChange = ServingcountChange
      end
      object UpDown3: TUpDown
        Left = 262
        Top = 89
        Width = 12
        Height = 24
        Associate = rfiservings
        Min = 1
        Position = 1
        TabOrder = 5
        Wrap = False
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 11
      Caption = 'Weight'
      object PaintBox3: TPaintBox
        Left = 232
        Top = 8
        Width = 377
        Height = 337
        Color = clBtnFace
        ParentColor = False
        OnPaint = PaintBox3Paint
      end
      object PaintBox7: TPaintBox
        Left = 288
        Top = 16
        Width = 321
        Height = 289
        Color = clWhite
        ParentColor = False
      end
      object StringGrid1: TStringGrid
        Left = 8
        Top = 8
        Width = 210
        Height = 249
        Hint = 'Enter weight data in grid'
        ColCount = 3
        DefaultRowHeight = 20
        FixedCols = 0
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goTabs]
        TabOrder = 0
        OnSetEditText = StringGrid1SetEditText
        ColWidths = (
          76
          64
          64)
      end
      object Button1: TButton
        Left = 8
        Top = 272
        Width = 81
        Height = 25
        Caption = '&Create Plan'
        TabOrder = 1
        OnClick = CreatePlan1Click
      end
      object Button2: TButton
        Left = 112
        Top = 272
        Width = 81
        Height = 25
        Caption = '&New Row'
        TabOrder = 2
        OnClick = New1Click
      end
      object Button3: TButton
        Left = 112
        Top = 304
        Width = 81
        Height = 25
        Caption = '&Remove Row'
        TabOrder = 3
        OnClick = Button3Click
      end
    end
    object TabSheet4: TTabSheet
      HelpContext = 3
      Caption = 'RDA'
      object PaintBox4: TPaintBox
        Left = 32
        Top = 40
        Width = 225
        Height = 225
        OnPaint = PaintBox4Paint
      end
      object PaintBox5: TPaintBox
        Left = 368
        Top = 40
        Width = 225
        Height = 225
        OnPaint = PaintBox5Paint
      end
      object Label38: TLabel
        Left = 24
        Top = 16
        Width = 239
        Height = 16
        Caption = 'FDA Recommended Daily Allowances'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label40: TLabel
        Left = 56
        Top = 268
        Width = 29
        Height = 14
        Caption = 'Carbo'
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object FDACarbo: TLabel
        Left = 75
        Top = 280
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '60%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label54: TLabel
        Left = 56
        Top = 292
        Width = 33
        Height = 14
        Caption = 'Protein'
        Font.Color = clAqua
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object FDAProtein: TLabel
        Left = 75
        Top = 304
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '10%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label56: TLabel
        Left = 56
        Top = 316
        Width = 15
        Height = 14
        Caption = 'Fat'
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object FDAFat: TLabel
        Left = 75
        Top = 328
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '30%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label58: TLabel
        Left = 512
        Top = 268
        Width = 29
        Height = 14
        Caption = 'Carbo'
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object YourCarbo: TLabel
        Left = 531
        Top = 280
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '00%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label60: TLabel
        Left = 512
        Top = 292
        Width = 33
        Height = 14
        Caption = 'Protein'
        Font.Color = clAqua
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object YourProtein: TLabel
        Left = 531
        Top = 304
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '00%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label62: TLabel
        Left = 512
        Top = 316
        Width = 15
        Height = 14
        Caption = 'Fat'
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object YourFat: TLabel
        Left = 531
        Top = 328
        Width = 22
        Height = 14
        Alignment = taRightJustify
        Caption = '00%'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label41: TLabel
        Left = 448
        Top = 16
        Width = 68
        Height = 16
        Caption = 'Your Menu'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Meal: TLabel
        Left = 320
        Top = 288
        Width = 31
        Height = 16
        Caption = 'Meal'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Day: TLabel
        Left = 320
        Top = 304
        Width = 24
        Height = 16
        Caption = 'Day'
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Comparison: TRadioGroup
        Left = 400
        Top = 272
        Width = 81
        Height = 81
        Caption = 'Selection'
        ItemIndex = 0
        Items.Strings = (
          'Meal'
          'Day'
          'Week')
        TabOrder = 0
        OnClick = ComparisonClick
      end
    end
    object TabSheet5: TTabSheet
      HelpContext = 25
      Caption = 'Calculators'
      object GroupBox5: TGroupBox
        Left = 8
        Top = 8
        Width = 593
        Height = 113
        Caption = '1. Caloric Maintenance'
        TabOrder = 0
        object Label33: TLabel
          Left = 8
          Top = 24
          Width = 91
          Height = 16
          Caption = 'Current Weight:'
        end
        object Label34: TLabel
          Left = 144
          Top = 80
          Width = 121
          Height = 16
          Caption = 'Caloric Requirement:'
        end
        object Label50: TLabel
          Left = 8
          Top = 56
          Width = 27
          Height = 16
          Caption = 'Age:'
        end
        object Label51: TLabel
          Left = 168
          Top = 24
          Width = 41
          Height = 16
          Caption = 'Height:'
        end
        object Label52: TLabel
          Left = 168
          Top = 48
          Width = 60
          Height = 16
          Caption = '(in inches)'
        end
        object CurrentWeight: TEdit
          Left = 104
          Top = 24
          Width = 41
          Height = 24
          TabOrder = 0
          OnChange = CurrentWeightChange
        end
        object CalorieReq: TEdit
          Left = 280
          Top = 80
          Width = 49
          Height = 24
          TabStop = False
          Color = clInactiveBorder
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
        end
        object ActivityLevel: TRadioGroup
          Left = 424
          Top = 16
          Width = 161
          Height = 73
          Caption = 'Activity Level'
          ItemIndex = 1
          Items.Strings = (
            'Low/Sedentary'
            'Moderate'
            'Heavy')
          TabOrder = 5
          OnClick = ActivityLevelClick
        end
        object Gender: TRadioGroup
          Left = 280
          Top = 16
          Width = 129
          Height = 49
          Caption = 'Gender'
          ItemIndex = 0
          Items.Strings = (
            'Female'
            'Male')
          TabOrder = 4
          OnClick = GenderClick
        end
        object Age: TEdit
          Left = 56
          Top = 56
          Width = 41
          Height = 24
          TabOrder = 1
          OnChange = AgeChange
        end
        object Height: TEdit
          Left = 216
          Top = 24
          Width = 41
          Height = 24
          TabOrder = 2
          OnChange = HeightChange
        end
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 216
        Width = 273
        Height = 65
        Caption = '3. Body Mass Index'
        TabOrder = 1
        object Label42: TLabel
          Left = 16
          Top = 24
          Width = 56
          Height = 16
          Caption = 'BMI Now:'
        end
        object Label43: TLabel
          Left = 136
          Top = 24
          Width = 73
          Height = 16
          Caption = 'BMI at Goal:'
        end
        object BMINow: TEdit
          Left = 80
          Top = 24
          Width = 41
          Height = 24
          TabStop = False
          Color = clInactiveBorder
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
        end
        object BMIGoal: TEdit
          Left = 216
          Top = 24
          Width = 41
          Height = 24
          TabStop = False
          Color = clInactiveBorder
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
        end
      end
      object GroupBox7: TGroupBox
        Left = 8
        Top = 136
        Width = 593
        Height = 65
        Caption = '2. Weight Loss Goal'
        TabOrder = 2
        object Label35: TLabel
          Left = 144
          Top = 24
          Width = 108
          Height = 16
          Caption = 'Diet Plan Calories:'
        end
        object Label39: TLabel
          Left = 320
          Top = 24
          Width = 91
          Height = 16
          Caption = 'Weeks to Goal:'
        end
        object Label53: TLabel
          Left = 8
          Top = 24
          Width = 76
          Height = 16
          Caption = 'Goal Weight:'
        end
        object PlanCalories: TEdit
          Left = 264
          Top = 24
          Width = 41
          Height = 24
          TabOrder = 1
          OnChange = GoalWeightChange
        end
        object WeekstoGoal: TEdit
          Left = 416
          Top = 24
          Width = 41
          Height = 24
          TabStop = False
          Color = clInactiveBorder
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
        end
        object GoalWeight: TEdit
          Left = 88
          Top = 24
          Width = 41
          Height = 24
          TabOrder = 0
          OnChange = GoalWeightChange
        end
      end
      object CreatePlan2: TButton
        Left = 384
        Top = 240
        Width = 81
        Height = 25
        Caption = '&Create Plan'
        TabOrder = 3
        OnClick = CreatePlan2Click
      end
    end
    object TabSheet6: TTabSheet
      HelpContext = 26
      Caption = 'Activity Planner'
      object Acrt: TLabel
        Left = 16
        Top = 8
        Width = 42
        Height = 16
        Caption = 'Activity'
      end
      object Label44: TLabel
        Left = 288
        Top = 32
        Width = 52
        Height = 16
        Caption = 'Duration:'
      end
      object Label45: TLabel
        Left = 288
        Top = 80
        Width = 96
        Height = 16
        Caption = 'Calories Burned:'
      end
      object ListBox3: TListBox
        Left = 16
        Top = 32
        Width = 241
        Height = 289
        HelpContext = 1
        ItemHeight = 16
        Sorted = True
        TabOrder = 0
        OnClick = ListBox3Click
      end
      object Duration: TEdit
        Left = 392
        Top = 32
        Width = 49
        Height = 24
        TabOrder = 1
        Text = '60'
        OnChange = DurationChange
      end
      object CaloriesBurned: TEdit
        Left = 392
        Top = 80
        Width = 49
        Height = 24
        TabStop = False
        Color = clInactiveBorder
        ReadOnly = True
        TabOrder = 2
      end
      object GroupBox8: TGroupBox
        Left = 280
        Top = 128
        Width = 209
        Height = 145
        Caption = 'Calorie Balance'
        TabOrder = 3
        object DayShowing: TLabel
          Left = 8
          Top = 24
          Width = 84
          Height = 16
          Caption = 'Day Showing'
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label47: TLabel
          Left = 8
          Top = 48
          Width = 87
          Height = 16
          Caption = 'Menu Calories:'
        end
        object Label48: TLabel
          Left = 8
          Top = 80
          Width = 97
          Height = 16
          Caption = 'Activity Calories:'
        end
        object Label49: TLabel
          Left = 8
          Top = 112
          Width = 95
          Height = 16
          Caption = 'Calorie Balance:'
        end
        object MenuCalories: TEdit
          Left = 112
          Top = 48
          Width = 49
          Height = 24
          Color = clInactiveBorder
          ReadOnly = True
          TabOrder = 0
        end
        object actcalories: TEdit
          Left = 112
          Top = 80
          Width = 49
          Height = 24
          TabStop = False
          Color = clInactiveBorder
          ReadOnly = True
          TabOrder = 1
        end
        object CalorieBalance: TEdit
          Left = 112
          Top = 112
          Width = 49
          Height = 24
          Color = clInactiveBorder
          ReadOnly = True
          TabOrder = 2
        end
      end
      object UpDown4: TUpDown
        Left = 441
        Top = 32
        Width = 12
        Height = 24
        Associate = Duration
        Min = 0
        Max = 120
        Position = 60
        TabOrder = 4
        Wrap = False
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 535
    Top = 4
    object Main1: TMenuItem
      Caption = '&Main'
      ShortCut = 0
      object MergeOtherFOODITEMDBT1: TMenuItem
        Caption = 'Mer&ge Other FOODITEM.DBT'
        ShortCut = 0
        OnClick = MergeOtherFOODITEMDBT1Click
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OrderForm1: TMenuItem
        Caption = '&Order Form'
        ShortCut = 0
        OnClick = OrderForm1Click
      end
      object Register1: TMenuItem
        Caption = '&Register'
        ShortCut = 0
        OnClick = Register1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = closeClick
      end
    end
    object FoodItem1: TMenuItem
      Caption = '&Food Item'
      ShortCut = 0
      object Add1: TMenuItem
        Caption = '&Add Food Item'
        ShortCut = 0
        OnClick = Add1Click
      end
      object Modify1: TMenuItem
        Caption = '&Modify Food Item'
        ShortCut = 0
        OnClick = Modify1Click
      end
      object Delete1: TMenuItem
        Caption = '&Delete Food Item'
        ShortCut = 0
        OnClick = Delete1Click
      end
      object N11: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AddtoPersonalList1: TMenuItem
        Caption = 'Add &to Personal List'
        ShortCut = 0
        OnClick = AddtoPersonalList1Click
      end
      object RemovefromPersonalList1: TMenuItem
        Caption = '&Remove from Personal List'
        Enabled = False
        ShortCut = 0
        OnClick = RemovefromPersonalList1Click
      end
      object ShowPersonalList1: TMenuItem
        Caption = '&Show Personal List'
        ShortCut = 0
        OnClick = ShowPersonalList1Click
      end
      object ClearWholePersonalList1: TMenuItem
        Caption = 'Clear Whole &Personal List'
        ShortCut = 0
        OnClick = ClearWholePersonalList1Click
      end
      object N12: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AddtoMeal1: TMenuItem
        Caption = 'Add to Mea&l'
        ShortCut = 0
        OnClick = AddtoMeal1Click
      end
    end
    object Menu1: TMenuItem
      Caption = '&Menu'
      ShortCut = 0
      object Load1: TMenuItem
        Caption = '&Load'
        ShortCut = 0
        OnClick = loadmealClick
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        ShortCut = 0
        OnClick = SavemenuClick
      end
      object Clear1: TMenuItem
        Caption = '&Clear Meal'
        ShortCut = 0
        OnClick = Clear1Click
      end
      object CopyMeal1: TMenuItem
        Caption = 'Copy &Meal'
        ShortCut = 0
        OnClick = copymealClick
      end
      object PasteMeal1: TMenuItem
        Caption = '&Paste Meal'
        ShortCut = 0
        OnClick = pastemealClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ClearMenu1: TMenuItem
        Caption = 'Clear Men&u'
        ShortCut = 0
        OnClick = ClearMenu1Click
      end
    end
    object Recipe1: TMenuItem
      Caption = '&Recipe'
      ShortCut = 0
      object AddtoFoodItems1: TMenuItem
        Caption = '&Add to Food Items'
        ShortCut = 0
        OnClick = AddtoFoodItems1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object LoadRecipe1: TMenuItem
        Caption = '&Load Recipe'
        ShortCut = 0
        OnClick = LoadRecipe1Click
      end
      object SaveRecipe1: TMenuItem
        Caption = '&Save Recipe'
        ShortCut = 0
        OnClick = SaveRecipe1Click
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ClearRecipe1: TMenuItem
        Caption = '&Clear Recipe'
        ShortCut = 0
        OnClick = ClearRecipe1Click
      end
    end
    object Weight1: TMenuItem
      Caption = '&Weight'
      ShortCut = 0
      object CreatePlan1: TMenuItem
        Caption = '&Create Plan'
        ShortCut = 0
        OnClick = CreatePlan1Click
      end
      object New1: TMenuItem
        Caption = '&New Row'
        ShortCut = 0
        OnClick = New1Click
      end
      object LoadFile1: TMenuItem
        Caption = '&Load File'
        ShortCut = 0
        OnClick = LoadFile1Click
      end
      object SaveFile1: TMenuItem
        Caption = '&Save File'
        ShortCut = 0
        OnClick = SaveFile1Click
      end
      object ClearGrid1: TMenuItem
        Caption = 'C&lear Grid'
        ShortCut = 0
        OnClick = ClearGrid1Click
      end
    end
    object Activity1: TMenuItem
      Caption = '&Activity'
      Enabled = False
      ShortCut = 0
      object AddActivity1: TMenuItem
        Caption = '&Add Activity'
        ShortCut = 0
        OnClick = AddActivity1Click
      end
      object DeleteActivity1: TMenuItem
        Caption = '&Delete Activity'
        ShortCut = 0
        OnClick = DeleteActivity1Click
      end
    end
    object Print1: TMenuItem
      Caption = '&Print'
      ShortCut = 0
      object PrintPreview1: TMenuItem
        Caption = 'Menu Print Pre&view'
        ShortCut = 0
        OnClick = PrintPreview1Click
      end
      object ShoppingListPreview1: TMenuItem
        Caption = 'S&hopping List Preview'
        ShortCut = 0
        OnClick = ShoppingListPreview1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object PrintShopingList1: TMenuItem
        Caption = 'Print &Shopping List'
        ShortCut = 0
        OnClick = PrintShopingList1Click
      end
      object PrintDay1: TMenuItem
        Caption = 'Print &Day'
        ShortCut = 0
        OnClick = PrintDay1Click
      end
      object PrintMenu1: TMenuItem
        Caption = '&Print Menu'
        ShortCut = 0
        OnClick = PrintMenu1Click
      end
      object PrintWeightGraph1: TMenuItem
        Caption = 'Print &Weight Graph'
        ShortCut = 0
        OnClick = PrintWeightGraph1Click
      end
      object PrintRecipe1: TMenuItem
        Caption = 'Print &Recipe'
        ShortCut = 0
        OnClick = PrintRecipe1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object PrintSetup1: TMenuItem
        Caption = 'P&rint Setup'
        ShortCut = 0
        OnClick = PrintSetup1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object General1: TMenuItem
        Caption = '&General'
        ShortCut = 0
        OnClick = General1Click
      end
      object DietingHints1: TMenuItem
        Caption = 'Dieting Hints'
        ShortCut = 0
        OnClick = DietingHints1Click
      end
      object LowCalorie1: TMenuItem
        Caption = '&Low Calorie'
        ShortCut = 0
        OnClick = LowCalorie1Click
      end
      object Diabetic1: TMenuItem
        Caption = '&Diabetic'
        ShortCut = 0
        OnClick = Diabetic1Click
      end
      object LowSodium1: TMenuItem
        Caption = 'Low &Sodium'
        ShortCut = 0
        OnClick = LowSodium1Click
      end
      object LowCholesterol1: TMenuItem
        Caption = 'Low &Cholesterol'
        ShortCut = 0
        OnClick = LowCholesterol1Click
      end
      object FDAGuidelines1: TMenuItem
        Caption = '&RDA Guidelines'
        ShortCut = 0
        OnClick = FDAGuidelines1Click
      end
      object N10: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OnlineOrderForm1: TMenuItem
        Caption = 'Online Order &Form'
        ShortCut = 0
        OnClick = OnlineOrderForm1Click
      end
      object SendEmail1: TMenuItem
        Caption = '&Send Email'
        ShortCut = 0
        OnClick = SendEmail1Click
      end
      object OtherSoftware1: TMenuItem
        Caption = '&Other Software'
        ShortCut = 0
        OnClick = OtherSoftware1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Tutor1: TMenuItem
        Caption = 'Tutor'
        ShortCut = 0
        OnClick = Tutor1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Options = [ofCreatePrompt]
    Left = 563
    Top = 4
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Left = 593
    Top = 4
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 493
    Top = 4
  end
end